home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / program / tvichw32.zip / README.RUS < prev    next >
Text File  |  1997-03-14  |  10KB  |  245 lines

  1. {===================================================================}
  2. {============       ╩ε∞∩εφσφ≥ TVicHW32              ================}
  3. {===================================================================}
  4. {==========  Copyright (c) 1997 ╚µΦΩσσΓ ┬ΦΩ≥ε≡ ╚ΓαφεΓΦ≈    =========}
  5. {==========           victor@ivi.ugatu.ac.ru               =========}
  6. {===================================================================}
  7.  
  8. 1. ╬┴╟╬╨ ╩╬╠╧╬═┼═╥└
  9. =====================
  10.  
  11.    TVicHW32 Γσ≡±Φ  1.1 ∩≡σΣ±≥αΓδ σ≥ Φτ ±σß  shareware-Ωε∞∩εφσφ≥ ≤∩≡αΓδσφΦ 
  12. α∩∩α≡α≥≤≡εΘ PC Σδ  Φ±∩εδⁿτεΓαφΦ  Γ Delphi 2.x ∩εΣ Windows 95 Φ Windows NT.
  13. TVicHW32 ²≥ε ≤∩≡ε∙σφφ√Θ αφαδεπ Φφ±≥≡≤∞σφ≥α WinRT(TM) Ωε∞∩αφΦΦ "Blue Water
  14. Systems" (R).
  15.  
  16.    ┬ετ∞εµφε±≥Φ Ωε∞∩εφσφ≥α:
  17.  
  18.    - τα∩Φ±ⁿ/≈≥σφΦσ ∩ε≡≥εΓ ΓΓεΣα-Γ√ΓεΣα Ωε∞∩ⁿ■≥σ≡α;
  19.    - Σε±≥≤∩ Ω ταΣαφφ√∞ αΣ≡σ±α∞ ⌠ΦτΦ≈σ±ΩεΘ ∩α∞ ≥Φ;
  20.    - εß≡αßε≥Ωα α∩∩α≡α≥φ√⌡ ∩≡σ≡√ΓαφΦΘ.
  21.  
  22.    ─δ  εßσ±∩σ≈σφΦ  Σε±≥≤∩α Ω α∩∩α≡α≥≤≡σ Γ ±ε±≥αΓσ Ωε∞∩εφσφ≥α Φ±∩εδⁿτ≤σ≥± 
  23. ΓΦ≡≥≤αδⁿφ√Θ Σ≡αΘΓσ≡ vichwXX.vxd Σδ  ≡αßε≥√ ∩εΣ Windows 95 Φ kernel-mode Σ≡αΘΓσ≡
  24. vichwXX.sys Σδ  ≡αßε≥√ Γ ±≡σΣσ Windows NT.
  25. ┬ φατΓαφΦ ⌡ Σ≡αΘΓσ≡εΓ ß≤ΩΓ√ XX εßετφα≈α■≥:
  26.    00 - Σδ  ετφαΩε∞Φ≥σδⁿφεΘ Γσ≡±ΦΦ;
  27.    11 - Σδ  τα≡σπΦ±≥≡Φ≡εΓαφφ√⌡ ∩εδⁿτεΓα≥σδσΘ.
  28.    ╟α≡σπΦ±≥≡Φ≡εΓαφφ√σ ∩εδⁿτεΓα≥σδΦ ∩εδ≤≈α■≥ Σ≡αΘΓσ≡√ vichw11.vxd Φ vichw11.sys
  29. (ßστ Φ±⌡εΣφ√⌡ ≥σΩ±≥εΓ), α ≥αΩµσ Φ±⌡εΣφ√σ ≥σΩ±≥√ ∞εΣ≤δσΘ hw_32.pas Φ
  30. loadhw.pas.
  31.  
  32. 2. ╚═╤╥└╦╦▀╓╚▀
  33. ================
  34.  
  35.    ╩ε∞∩εφσφ≥ Φφ±≥αδδΦ≡≤σ≥±  Γ ∩αδΦ≥≡≤ Ωε∞∩εφσφ≥εΓ φα ±≥≡αφΦ÷≤ "Drivers". ─δ 
  36. Φφ±≥αδδ ÷ΦΦ Ωε∞∩εφσφ≥α φσεß⌡εΣΦ∞ε:
  37.    - ±Ωε∩Φ≡εΓα≥ⁿ Γ±σ ⌠αΘδ√ Γ Γ√ß≡αφφ√Θ Ωα≥αδεπ (i.e. C:\HW).;
  38.    - ∩σ≡σ∞σ±≥Φ≥ⁿ ⌠αΘδ vichwXX.vxd Γ Ωε≡φσΓεΘ Ωα≥αδεπ Windows 95;
  39.  
  40.    - ∩σ≡σ∞σ±≥Φ≥ⁿ ⌠αΘδ vichwXX.sys Γ Ωα≥αδεπ C:\<Windows_NT>\SYSTEM32\DRIVERS;
  41.    - τα∩≤±≥Φ≥ⁿ Delphi 2 Φ Γ√ß≡α≥ⁿ Component|Install|Add|browse Ω
  42. C:\HW\hw_32.dcu Σδ  ετφαΩε∞Φ≥σδⁿφεΘ Γσ≡±ΦΦ ΦδΦ C:\HW\hw_32.pas Σδ 
  43. τα≡σπΦ±≥≡Φ≡εΓαφφ√⌡ ∩εδⁿτεΓα≥σδσΘ;
  44.    - φαµα≥ⁿ OK Σδ  ∩σ≡σΩε∞∩Φδ ÷ΦΦ ßΦßδΦε≥σΩΦ Ωε∞∩εφσφ≥εΓ.
  45.  
  46. 3. ╥┼╤╥╚╨╬┬└═╚┼
  47. =================
  48.  
  49.   ╩ε∞∩δσΩ≥σ ±εΣσ≡µΦ≥ ≥σ±≥εΓ√Θ ∩≡Φ∞σ≡ HW_TEST.DPR. ╟α∩≤±≥Φ≥σ σπε Φ ∩≡εΓσ≡ⁿ≥σ
  50. ∩≡αΓΦδⁿφε±≥ⁿ Φφ±≥αδδ ÷ΦΦ Φ ≡αßε≥ε±∩ε±εßφε±≥ⁿ Ωε∞∩εφσφ≥α.
  51.  
  52. 4. ╧╨┼─╙╧╨┼╞─┼═╚▀
  53. ===================
  54.  
  55.    ╨αßε≥α  ± α∩∩α≡α≥≤≡εΘ φα∩≡ ∞≤■ Φτ Win32-∩≡ΦδεµσφΦ  ┬√ ∩≡ΦφΦ∞ασ≥σ φα ±σß  Γ±■
  56. ε≥Γσ≥±≥Γσφφε±≥ⁿ τα Γετ∞εµφ√σ ∩ε±δσΣ±≥ΓΦ , ≥αΩ ΩαΩ ²≥ε φσ ∩≡σΣ≤±∞ε≥≡σφε
  57. ≡ατ≡αßε≥≈ΦΩα∞Φ Windows 95 Φ Windows NT.
  58.  
  59.  
  60. 5. ╬┴┘╚┼ ╤┬╬╔╤╥┬└ ╚ ╠┼╥╬─█
  61. ============================
  62.  
  63.     constructor Create(Owner:TComponent); override;
  64.     ----------------------------------------------
  65.     ╤≥αφΣα≡≥φεσ ±ετΣαφΦσ Ωε∞∩εφσφ≥α. ─≡αΘΓσ≡ αΓ≥ε∞α≥Φ≈σ±ΩΦ _φσ_ ε≥Ω≡√Γασ≥± .
  66. ═σεß⌡εΣΦ∞ε ∩ετΣφσσ ε≥Ω≡√≥ⁿ σπε ∩≡Φ ∩ε∞ε∙Φ ∞σ≥εΣα OpenDriver.
  67.     
  68.     destructor  Destroy; override;
  69.     -----------------------------
  70.     ╤≥αφΣα≡≥φεσ ≤φΦ≈≥εµσφΦσ Ωε∞∩εφσφ≥α. ┼±δΦ ß√δε ταΣαφε α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ,
  71. ≥ε εφε ∞α±ΩΦ≡≤σ≥±  Φ ≤φΦ≈≥εµασ≥± . ┼±δΦ Σ≡αΘΓσ≡ ß√δ ε≥Ω≡√≥, ≥ε εφ
  72. ταΩ≡√Γασ≥± .
  73.  
  74.     procedure   OpenDriver;
  75.     -----------------------
  76.     ╟απ≡≤µασ≥ Σ≡αΘΓσ≡ vichwXX.vxd (Windows 95) ΦδΦ vichwXX.sys (Windows NT) Φ
  77. ε≥Ω≡√Γασ≥ Σε±≥≤∩ Ω α∩∩α≡α≥≤≡σ. ┼±δΦ ΓετΓ≡α∙σφφ√Θ Γ ±ΓεΘ±≥Γσ ActiveHW ≡στ≤δⁿ≥α≥
  78. - TRUE, ≥ε ≡αßε≥α ± α∩∩α≡α≥≤≡εΘ Γετ∞εµφα. ╬≥Ω≡√Γα≥ⁿ Σ≡αΘΓσ≡ φσεß⌡εΣΦ∞ε εΣΦφ ≡ατ
  79. ∩≡Φ τα∩≤±Ωσ ∩≡ΦδεµσφΦ . ╧εΓ≥ε≡φεσ ε≥Ω≡√≥Φσ φσΣε∩≤±≥Φ∞ε.
  80.  
  81.     procedure   CloseDriver;
  82.     ------------------------
  83.     ╟αΩ≡√Γασ≥ Σ≡αΘΓσ≡ Φ Γ√π≡≤µασ≥ σπε Φτ ∩α∞ ≥Φ, ≥σ∞ ±α∞√∞ ταΓσ≡°α  ≡αßε≥≤ ±
  84. α∩∩α≡α≥≤≡εΘ. ┼±δΦ Φ±∩εδⁿτεΓαδα±ⁿ ≡αßε≥α ± ∩≡σ≡√ΓαφΦσ∞, ≥ε εφε ∞α±ΩΦ≡≤σ≥±  Φ
  85. ≤φΦ≈≥εµασ≥± . ╤ΓεΘ±≥Γε ActiveHW ≤±≥αφαΓδΦΓασ≥±  Γ FALSE.
  86.  
  87.     property ActiveHW : Boolean; (published, read);
  88.     -----------------------------------------------
  89.     ╚φΣΦ÷Φ≡≤σ≥ Γετ∞εµφε±≥ⁿ ≡αßε≥√ ± α∩∩α≡α≥≤≡εΘ.
  90.  
  91. 6. ─╬╤╥╙╧ ╩ ╟└─└══█╠ └─╨┼╤└╠ ╘╚╟╚╫┼╤╩╬╔ ╧└╠▀╥╚
  92. ==========================================================
  93.  
  94.     function    MapPhysToLinear(PhAddr:dWord; Size:dWord):Pointer;
  95.     -------------------------------------------------------------
  96.  
  97.     ╬≥εß≡αµασ≥ ταΣαφφ√Θ ⌠ΦτΦ≈σ±ΩΦΘ αΣ≡σ±(PhAddr) Ω ≤Ωατα≥σδ■ φα δΦφσΘφ≤■
  98. ∩α∞ ≥ⁿ, Σε±≥≤∩φε∞≤ Φτ ∩≡ΦδεµσφΦ . Size - ≡ατ∞σ≡ Φ±∩εδⁿτ≤σ∞εΘ εßδα±≥Φ ⌠ΦτΦ≈σ±ΩεΘ
  99. ∩α∞ ≥Φ. ╬ΣφεΓ≡σ∞σφφε ∞εµφε Φ±∩εδⁿτεΓα≥ⁿ ≥εδⁿΩε εΣφ≤ εßδα±≥ⁿ ⌠ΦτΦ≈σ±ΩεΘ ∩α∞ ≥Φ.
  100. ╧ε±δσ ∩εΓ≥ε≡φεπε Γ√τεΓα ∞σ≥εΣα ± Σ≡≤πΦ∞Φ ∩α≡α∞σ≥≡α∞Φ ∩≡σΣ√Σ≤∙ΦΘ ≤Ωατα≥σδⁿ
  101. ±≥αφεΓΦ≥±  φσΣσΘ±≥ΓΦ≥σδⁿφ√∞! 
  102.     ═α∩≡Φ∞σ≡, Σδ  ≤±≥αφεΓΩΦ ≤Ωατα≥σδ  φα εßδα±≥ⁿ ROM BIOS (f000:0000) ∞εµφε
  103. ±Σσδα≥ⁿ ≥αΩ:
  104.  
  105.     type TBiosArray = array[0..255] of Byte;
  106.          PBiosArray =^TBiosArray;
  107.     var  pBIOS      : PBiosArray;
  108.     ....
  109.     begin
  110.     
  111.       with VicHw32 do
  112.       begin
  113.         OpenDriver;
  114.         if ActiveHW then
  115.         begin
  116.           pBIOS:=MapPhysToLinear($F8000,256)
  117.           .....
  118.           ..... working with pBIOS .....
  119.           .....
  120.           CloseDriver;
  121.         end
  122.         else ShowMessage('Driver not opened...'); 
  123.       end;
  124.     end;
  125.  
  126. 7. ╨└┴╬╥└ ╤ ╧╬╨╥└╠╚ ┬┬╬─└/┬█┬╬─└
  127. ================================
  128.  
  129.     property Port[Index:Word]  : Byte;(public, read, write);
  130.     --------------------------------------------------------
  131.     ╟α∩Φ±ⁿ Γ ∩ε≡≥ ΦδΦ ≈≥σφΦσ Φτ ∩ε≡≥α εΣφεπε ßαΘ≥α. └Σ≡σ± ∩ε≡≥α ταΣασ≥±  Γ ∩εδσ
  132. Index.
  133.  
  134.     property PortW[Index:Word] : Word;(public, read, write);
  135.     --------------------------------------------------------
  136.     ╟α∩Φ±ⁿ Γ ∩ε≡≥ ΦδΦ ≈≥σφΦσ Φτ ∩ε≡≥α εΣφεπε cδεΓα Φτ ΣΓ≤⌡ ßαΘ≥. └Σ≡σ± ∩ε≡≥α
  137. ταΣασ≥±  Γ ∩εδσ Index.
  138.  
  139.     property PortL[Index:Word] :dWord;(public, read, write);
  140.     --------------------------------------------------------
  141.     ╟α∩Φ±ⁿ Γ ∩ε≡≥ ΦδΦ ≈≥σφΦσ Φτ ∩ε≡≥α ΣΓεΘφεπε ±δεΓα Φτ ≈σ≥√≡σ⌡ ßαΘ≥. └Σ≡σ±
  142. ∩ε≡≥α ταΣασ≥±  Γ ∩εδσ Index.
  143.  
  144.     property HardAccess : Boolean; (published, read, write);     
  145.     --------------------------------------------------------
  146.     ╙±≥αφαΓδΦΓασ≥ "µσ±≥ΩΦΘ" (TRUE) ΦδΦ "∞ πΩΦΘ" (FALSE) ≡σµΦ∞ Σε±≥≤∩α Ω ∩ε≡≥α∞
  147. ΓΓεΣα-Γ√ΓεΣα. "╠ πΩΦΘ" ≡σµΦ∞ εßσ±∩σ≈ΦΓασ≥ ßεδσσ Γ√±εΩ≤■ ±Ωε≡ε±≥ⁿ Σε±≥≤∩α Ω
  148. ∩ε≡≥α∞, φε ∞επ≤≥ ΓετφΦΩφ≤≥ⁿ ∩≡εßδσ∞√, σ±δΦ φ≤µφ√σ ∩ε≡≥√ ≤µσ Φ±∩εδⁿτ≤■≥± 
  149. ΩαΩΦ∞-δΦßε Σ≡αΘΓσ≡ε∞ ±Φ±≥σ∞√. "╞σ±≥ΩΦΘ" ≡σµΦ∞ ßεδσσ ∞σΣδσφφ√Θ, φε ∩ετΓεδ σ≥
  150. Σε±≥≤∩ Ω δ■ß√∞ ∩ε≡≥α∞ Ωε∞∩ⁿ■≥σ≡α. ╤φα≈αδα ∩ε∩√≥αΘ≥σ±ⁿ Φ±∩εδⁿτεΓα≥ⁿ "∞ πΩΦΘ"
  151. ≡σµΦ∞.
  152.     ╧≡Φ∞σ≡ ≡αßε≥√ ± ∩ε≡≥α∞Φ ΓΓεΣα-Γ√ΓεΣα:
  153.  
  154.     with VicHw32 do
  155.     begin
  156.      .....
  157.      Port[$2F8]:=$34;      // τα∩Φ±ⁿ ßαΘ≥α Γ ∩ε≡≥
  158.      .....
  159.      MyByte:=Port[$2f9];   // ≈≥σφΦσ ßαΘ≥α Φτ ∩ε≡≥α
  160.      .....
  161.     end;
  162.  
  163.  
  164. 8. ╨└┴╬╥└ ╤ └╧╧└╨└╥═█╠╚ ╧╨┼╨█┬└═╚▀╠╚
  165. ====================================
  166.  
  167.     ╤ΓεΘ±≥Γα Φ ∞σ≥εΣ√ ≡αßε≥√ ± α∩∩α≡α≥φ√∞ ∩≡σ≡√ΓαφΦσ∞ ε∩Φ±αφ√ Γ ≥ε∞ ∩ε≡ ΣΩσ,
  168. Ωε≥ε≡επε φσεß⌡εΣΦ∞ε ∩≡ΦΣσ≡µΦΓα≥ⁿ±  ∩≡Φ ±ετΣαφΦΦ ∩≡επ≡α∞∞√ εß≡αßε≥ΩΦ ∩≡σ≡√ΓαφΦ .
  169. ╩ε∞∩εφσφ≥ ∩ετΓεδ σ≥ εß≡αßα≥√Γα≥ⁿ ≥εδⁿΩε εΣφε α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ
  170. εΣφεΓ≡σ∞σφφε.
  171.  
  172.     property OnHwInterrupt :TNotifyEvent; published;
  173.     ------------------------------------------------
  174.     ╬∩≡σΣσδ σ≥ ∩≡ε÷σΣ≤≡≤ εß≡αßε≥ΩΦ α∩∩α≡α≥φεπε ∩≡σ≡√ΓαφΦ . ╬ß≡αßε≥≈ΦΩ ±εß√≥Φ 
  175. OnHWInterrupt Γ√∩εδφ σ≥±  Γ ε≥Σσδⁿφε∞ ∩ε≥εΩσ, ∩ε²≥ε∞≤ Γ√τεΓ Φτ φσπε ⌠≤φΩ÷ΦΘ VCL
  176. φσΓετ∞εµσφ. ╠φεΘ ∩≡εΓσ≡σφα ²⌠⌠σΩ≥ΦΓφε±≥ⁿ εß≡αßε≥ΩΦ ∩≡σ≡√ΓαφΦΘ ± ∞ΦφΦ∞αδⁿφ√∞
  177. ∩σ≡ΦεΣε∞ 0,1 ∞ΦδδΦ±σΩ≤φΣα ∩≡Φ "∩≤±≥ε∞" εß≡αßε≥≈ΦΩσ ±εß√≥Φ  OnHWInterrupt φα
  178. Ωε∞∩ⁿ■≥σ≡σ Pentium-133 Γ ±≡σΣσ Windows 95, Windows NT 3.51 Φ Windows NT 4.0.
  179.  
  180.     property  IRQNumber : Byte; (published, read, write)
  181.     ----------------------------------------------------
  182.     ╙±≥αφαΓδΦΓασ≥ φε∞σ≡ φσεß⌡εΣΦ∞επε α∩∩α≡α≥φεπε ∩≡σ≡√ΓαφΦ  Γ ΣΦα∩ατεφσ 1..15.
  183. ═σ ∩√≥αΘ≥σ±ⁿ ≤±≥αφεΓΦ≥ⁿ IRQNumber := 0, ≥σ∞ ±α∞√∞ Φτ∞σφ   φα±≥≡εΘΩΦ ±Φ±≥σ∞φεπε
  184. ≥αΘ∞σ≡α. ╩ε∞∩εφσφ≥ φσ ∩ετΓεδ σ≥ ²≥επε Σσδα≥ⁿ.
  185.  
  186.     procedure   SetIRQ;
  187.     ------------------
  188.     ╤Γ τ√Γασ≥ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ, φε∞σ≡ Ωε≥ε≡επε Σεδµσφ ß√≥ⁿ ταΣαφ Γ
  189. ±ΓεΘ±≥Γσ IRQNumber, ± ±εß√≥Φσ∞  OnHWInterrupt. ╙±≥αφαΓδΦΓασ≥ ±ΓεΘ±≥Γε IsIRQSet
  190. Ω τφα≈σφΦ■ TRUE. ─δ  φα≈αδα εß≡αßε≥ΩΦ ∩≡σ≡√ΓαφΦσ φσεß⌡εΣΦ∞ε ≡ατ∞α±ΩΦ≡εΓα≥ⁿ (±∞.
  191. ∞σ≥εΣ UnmaskInterrupt);
  192.  
  193.     procedure UnmaskInterrupt;
  194.     --------------------------
  195.     ─σ∞α±ΩΦ≡≤σ≥ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ. ╥σ∩σ≡ⁿ ∩≡Φ ΩαµΣε∞ α∩∩α≡α≥φε∞ ∩≡σ≡√ΓαφΦΦ
  196. ß≤Σσ≥ πσφσ≡Φ≡εΓα≥ⁿ±  ±εß√≥Φσ OnHWInterrupt. ╙±≥αφαΓδΦΓασ≥ ±ΓεΘ±≥Γε Masked Ω
  197. τφα≈σφΦ■ FALSE. 
  198.  
  199.     procedure MaskInterrupt;
  200.     ------------------------
  201.     ╠α±ΩΦ≡≤σ≥ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ, ∩ε±δσ ≈σπε ∩σ≡σ±≥ασ≥ Γ√τ√Γα≥ⁿ±  εß≡αßε≥≈ΦΩ
  202. OnHwInterrupt.
  203.  
  204.     procedure DestroyIRQ;
  205.     ---------------------
  206.     ╙φΦ≈≥εµασ≥ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ. ╤ΓεΘ±≥Γε IsIRQSet ≤±≥αφαΓδΦΓασ≥±  Ω
  207. FALSE, α ±ΓεΘ±≥Γε Masked Ω τφα≈σφΦ■ TRUE.
  208.  
  209.     property    IsIRQSet : Boolean; (read only);
  210.     --------------------------------------------
  211.     ╧ετΓεδ σ≥ ∩≡εΓσ≡Φ≥ⁿ, ≤±≥αφεΓδσφε δΦ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ ∩≡Φ ∩ε∞ε∙Φ ∞σ≥εΣα
  212. SetIRQ.
  213.  
  214.     property    Masked   : Boolean; (read only);
  215.     -------------------------------------------
  216.     ╧ετΓεδ σ≥ ∩≡εΓσ≡Φ≥ⁿ, τα∞α±ΩΦ≡εΓαφε δΦ α∩∩α≡α≥φεσ ∩≡σ≡√ΓαφΦσ ∩ε∞ε∙Φ ∞σ≥εΣα
  217. MaskInterrupt.
  218.  
  219.     property    IRQCounter : dWord; (read only);
  220.     --------------------------------------------
  221.     ╫Φ≥ασ≥ ΩεδΦ≈σ±≥Γε ∩≡σ≡√ΓαφΦΘ ∩σ≡σ⌡Γα≈σφφεσ Γφ≤≥≡Φ Σ≡αΘΓσ≡α. ╬ßφ≤δ σ≥±  ∩≡Φ
  222. Γ√∩εδφσφΦΦ ∞σ≥εΣα SetIRQ. ╠εµσ≥ ±δ≤µΦ≥ⁿ Σδ  ±≡αΓφσφΦ  ΩεδΦ≈σ±≥Γα ∩≡σ≡√ΓαφΦΘ
  223. ≡σαδⁿφε ±πσφσ≡Φ≡εΓαφφ√⌡ α∩∩α≡α≥≤≡εΘ ± ΩεδΦ≈σ±≥Γε∞ ∩≡σ≡√ΓαφΦΘ, εß≡αßε≥αφφ√⌡ Γ
  224. ┬α°σ∞ ∩≡ΦδεµσφΦΦ. ┬ΓσΣσφ Γ Ωε∞∩εφσφ≥ ± ε≥δαΣε≈φ√∞Φ ÷σδ ∞Φ.
  225.     
  226.     procedure SimulateHwInt;
  227.     ------------------------
  228.     ╧ετΓεδ σ≥ ±Φ∞≤δΦ≡εΓα≥ⁿ εΣΦφε≈φ√σ ∩≡σ≡√ΓαφΦ . ╧ε±δσ Γ√τεΓα ²≥επε ∞σ≥εΣα
  229. ±Φπφαδ ∩σ≡σΣασ≥±  Γ Σ≡αΘΓσ≡, α ε≥≥≤Σα ±Φ∞≤δΦ≡≤σ≥±  ΓετφΦΩφεΓσφΦσ α∩∩α≡α≥φεπε
  230. ∩≡σ≡√ΓαφΦ . ▌≥ε≥ ∞σ≥εΣ ≤Σεßφε Φ±∩εδⁿτεΓα≥ⁿ Σδ  ε≥δαΣΩΦ ∩≡ε÷σΣ≤≡√ εß≡αßε≥ΩΦ
  231. ∩≡σ≡√ΓαφΦΘ ßστ ≤≈α±≥Φ  ≡σαδⁿφεΘ α∩∩α≡α≥≤≡√.
  232.  
  233.  
  234. 9. ╟└╩╦▐╫┼═╚┼
  235. ===============
  236.  
  237. ╨στ≤δⁿ≥α≥√ Φ±∩εδⁿτεΓαφΦ  Ωε∞∩εφσφ≥α, ∩εµσδαφΦ  Φ ∩≡σΣδεµσφΦ  ∩≡ε°≤ ∩ε±√δα≥ⁿ ∞φσ
  238. φα e-mail αΣ≡σ± victor@ivi.ugatu.ac.ru.
  239.  
  240.  
  241.  
  242. ┬.╚.╚µΦΩσσΓ,
  243. π.╙⌠α, ∞α≡≥ 1997 πεΣα
  244.  
  245.